home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / watt.dir / 00207_Script_Watt Sculpture Obj < prev    next >
Text File  |  1997-07-24  |  8KB  |  264 lines
  1. --o Watt Sculpture Obj
  2. --Instantiated as gWattSculptureObj
  3.  
  4. property pIntroSoundFileName
  5. property pQTsprite, pPICTsprite, pQTframeSprite
  6. property pPedalHSsprite, pBlockHSsprite, pMachineRunningHSsprite
  7. property pMachineRunningHSlocH, pMachineRunningHSlocV
  8. property pWhichQTplaying, pDisplayingQT
  9. property pPlaceHolderCastNum, pPICTstage2castNum, pSecondaryTxtBaseCast
  10. property pIntroQTcastNum, pIntroQTlocH, pIntroQTlocV
  11. property pMachineQTcastNum, pMachineQTlocH, pMachineQTlocV
  12. property pMachineCU1castNum, pQTCUlocH, pQTCUlocV
  13. property pQTframeCastNum, pQTframeRect
  14. property pCUQTstage, pOperateText, pActive, pInstructText
  15. property pRolloverActive, pRolloverStartsprite, pRolloverEndSprite, plabels
  16. property  pBustCast, pPictActive
  17.  
  18. global gSndPath, gScoreEventObj, gUtilityObj, gActiveAmbSnd
  19. -----------------------------------------------------------------<<ò>>
  20. on mInit me
  21.   
  22.   sound stop 1
  23.   set gActiveAmbSnd   = "WSCAMB.AIF"
  24.   set pIntroSoundFileName = "WSCINTR.AIF"
  25.   set pSecondaryTxtBaseCast = the number of cast "Zoom 1 Text"
  26.   set pOperateText = the text of cast "Sculpture Operate"
  27.   set pInstructText = the text of cast "Sculpture Instruct Text"
  28.   set pQTsprite = 23
  29.   set pRolloverStartsprite = 7
  30.   set pRolloverEndSprite = 9
  31.   set plabels = the text of cast "Sculpt Labels"
  32.   set pPictsprite = 18
  33.   set pBustCast = the number of cast "WSCHDZM1.PIC"
  34.   set pPictActive = false
  35.   sound playfile 2, gSndPath & pIntroSoundFileName
  36.   
  37.   return( me )
  38.   
  39. end mInit
  40. -----------------------------------------------------------------<<ò>>
  41. on mDisplayPict me
  42.   
  43.   if  (pCUQTstage > 1) then go "SculptureBase"
  44.   if pActive then mStopMachine me
  45.   cursor 4
  46.   mUnSetAllCursors(gUtilityObj)
  47.   set pRolloverActive = FALSE  
  48.   puppetsprite pPictsprite, true
  49.   set the castnum of sprite pPictsprite = pBustCast
  50.   updatestage
  51.   mSetCursors( gUtilityObj, [21:#Return, 22:#Return])
  52.   cursor -1
  53.   set pPictActive = TRUE
  54.   
  55. end mDisplayPict
  56. -----------------------------------------------------------------<<ò>>
  57. on mClearPict me
  58.   
  59.   puppetsprite pPictsprite, false
  60.   set the castnum of sprite pPictsprite = 0
  61.   updatestage
  62.   set pPictActive = FALSE
  63.   mUnSetAllCursors(gUtilityObj)
  64.   
  65. end mClearPict
  66. -----------------------------------------------------------------<<ò>>
  67. on mActivate me
  68.  
  69.   puppetSprite pMachineRunningHSsprite, true
  70.   set pCUQTstage = 0
  71.   mSetCursors( gUtilityObj, [9:#Operate, 4:#Operate, 21:#Return, 22:#Return])
  72.   mSetToolBtns (gInterfaceMgrObj, #SCULPTURE, me)
  73.   set pActive = FALSE
  74.   
  75. end mActivate
  76. -----------------------------------------------------------------<<ò>>
  77. on mClose me
  78.   
  79.   mUnSetAllCursors(gUtilityObj)
  80.   mSetCursors( gUtilityObj, [21:#Return, 22:#Return])
  81.   
  82. end mClose
  83. -----------------------------------------------------------------<<ò>>
  84. on mStartMachine me
  85.   set gActiveAmbSnd   = 0
  86.   set pRolloverActive = TRUE  
  87.   cursor 4
  88.   sound stop 1
  89.   set pCUQTstage = 4
  90.   mUnSetAllCursors(gUtilityObj)
  91.   go "OpSculpture"
  92.   mDisplayInstructText( gUtilityObj,  pOperateText )
  93.   mSetCursors( gUtilityObj, [9:#operate,7:#Foot,8:#zoomin,21:#Return, 22:#Return])
  94.   set pActive = TRUE
  95.   cursor -1
  96.   
  97. end mStartMachine
  98. -----------------------------------------------------------------<<ò>>
  99. on mLoad me
  100.   
  101.   set pCUQTstage = 1
  102.   cursor 4
  103.   sound stop 2
  104.   mUnSetAllCursors(gUtilityObj)
  105.   go "ACTSCULPTURE"
  106.   cursor -1
  107.   mSetCursors( gUtilityObj, [21:#Return, 22:#Return])
  108.   
  109. end mLoad
  110. -----------------------------------------------------------------<<ò>>
  111. on mSetUp me
  112.   
  113.   set pRolloverActive = TRUE  
  114.   set pCUQTstage = 1
  115.   mSetCursors( gUtilityObj, [9:#operate,7:#Foot,8:#zoomin,21:#Return, 22:#Return])
  116.   mDisplayInstructText( gUtilityObj, pInstructText )
  117.   updatestage
  118.   
  119. end mSetUp
  120. -----------------------------------------------------------------<<ò>>
  121. on mStopMachine me
  122.   set gActiveAmbSnd   = "WSCAMB.AIF"
  123.   set pRolloverActive = TRUE
  124.   set the movieRate of sprite pQTsprite = 0
  125.   set the locV of sprite pQTsprite = -500
  126.   set pActive = FALSE
  127.   sound stop 1
  128.   go "SculptureBase"
  129.   mDisplayInstructText( gUtilityObj,  pInstructText )
  130.   
  131. end mStopMachine
  132. -----------------------------------------------------------------<<ò>>
  133. on mCloseUpStage1 me
  134.   set gActiveAmbSnd   = 0
  135.   set pRolloverActive = FALSE
  136.   cursor 4 
  137.   set pActive = FALSE
  138.   mUnSetAllCursors(gUtilityObj)
  139.   set pCUQTstage = 2
  140.   sound stop 1
  141.   go frame "SCzoom1"
  142.   set NewText = the text of cast pSecondaryTxtBaseCast
  143.   mDisplayInstructText (gUtilityObj, NewText)
  144.   updatestage
  145.   cursor -1 
  146.   mSetCursors( gUtilityObj, [15:#ZoomIn, 21:#Return, 22:#Return])
  147.   
  148.   
  149. end mCloseUpStage1
  150. -----------------------------------------------------------------<<ò>>
  151. on mCloseUpStage2 me
  152.   set gActiveAmbSnd   = 0
  153.   set pRolloverActive = FALSE
  154.   cursor 4
  155.   set pActive = FALSE
  156.   mUnSetAllCursors(gUtilityObj)
  157.   set pCUQTstage = 3
  158.   set the movierate of sprite pQTsprite = 0
  159.   sound stop 1
  160.   go frame "SCzoom2"
  161.   set NewText = the text of cast "Zoom 2 Text"
  162.   mDisplayInstructText (gUtilityObj, NewText)
  163.   updatestage
  164.   cursor -1 
  165.   mSetCursors( gUtilityObj, [15:#ZoomOut,17:#OPERATE,21:#Return, 22:#Return])
  166.   
  167. end mCloseUpStage2
  168. -----------------------------------------------------------------<<ò>>
  169. on mPullout me
  170.   
  171.   cursor 4
  172.   sound stop 2
  173.   sound stop 1
  174.   if pPictActive then
  175.     
  176.     mClearPict( me )
  177.     if (pCUQTstage = 0) then mActivate( me )
  178.     else 
  179.       set pRolloverActive = TRUE
  180.       mUnSetAllCursors(gUtilityObj)
  181.       puppetsprite pPictsprite, false
  182.       if not pActive then 
  183.         go "SculptureBase"
  184.         mSetUp me
  185.       else mStartMachine me
  186.     end if
  187.     
  188.   else
  189.     
  190.     if (pCUQTstage = 0) or (pCUQTstage = 1) then
  191.       
  192.       mClose(me)
  193.       go "Sculpture PO"
  194.       mPullOut(gScoreEventObj)
  195.       
  196.     else 
  197.       
  198.       set pRolloverActive = TRUE
  199.       mUnSetAllCursors(gUtilityObj)
  200.       puppetsprite pPictsprite, false
  201.       if  not pActive  then 
  202.         go "SculptureBase"
  203.         mSetUp me
  204.       else mStartMachine me
  205.       
  206.     end if
  207.     
  208.   end if
  209.   
  210.   cursor -1
  211.   set gActiveAmbSnd   = "WSCAMB.AIF"
  212.   
  213. end mPullout
  214. -----------------------------------------------------------------<<ò>>
  215. on mOperate me, Whatselection
  216.   
  217.   set gActiveAmbSnd   = 0
  218.   sound stop 1
  219.   sound stop 2
  220.   if pPictActive then mClearPict me
  221.   
  222.   if Whatselection = 1 then  mLoad me
  223.   else mStartMachine me
  224.   mClearToolHilite ( gInterfaceMgrObj )
  225.   
  226. end mOperate
  227. -----------------------------------------------------------------<<ò>>
  228. on mZoom me, Whatselection
  229.   
  230.   set gActiveAmbSnd   = 0
  231.   sound stop 1
  232.   sound stop 2
  233.   if pPictActive then mClearPict me
  234.   
  235.   if Whatselection = 1 then   mDisplayPict me
  236.   else if Whatselection = 2 then mCloseUpStage1 me
  237.   else mCloseUpStage2 me
  238.   mClearToolHilite ( gInterfaceMgrObj )
  239.   
  240.   
  241. end mZoom
  242. -----------------------------------------------------------------<<ò>>
  243. on mPerform me
  244.   
  245.   
  246.   if pRolloverActive then
  247.     set spritetoCheck = pRolloverStartsprite
  248.     set found = FALSE
  249.     repeat while (not found) and (spritetoCheck <= pRolloverEndSprite)
  250.       if rollover(spritetoCheck) then
  251.         set labelText = line (spritetoCheck - pRolloverStartsprite + 1) of plabels
  252.         mSetLabelText( gUtilityObj, labelText)
  253.         set found = TRUE
  254.       end if
  255.       set spritetoCheck = spritetoCheck + 1
  256.     end repeat
  257.   end if
  258.   
  259.   go the frame
  260.   set gActiveAmbSnd   = "WSCAMB.AIF"
  261.   
  262. end mPerform
  263. -----------------------------------------------------------------<<ò>>
  264.